home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 47 / MOBICLIC 47.ISO / mac / DATA / DemoAtlas / demo.cst / 00001_Script_gestion de la navigation next >
Text File  |  2002-07-23  |  2KB  |  52 lines
  1. -- gestion de la navigation
  2.  
  3. global chemin,pathAide,menuMsg,validMBG,validMHD,volumeOn,touchesOn,pisteAideRub,aideRub
  4. global menusActifs, menuOuvert
  5. -- chemin    : chemin d'accΦs complet au niveau du sommaire
  6. -- pathAide  : nom complet du film appelant l'aide
  7. -- menuMsg   : nom du message retournΘ par les menus de Mobiclic
  8. -- validMBG  : liste de l'activitΘ des items du menu Θquerre bleue
  9. -- validMHD  : liste de l'activitΘ des items du menu Θquerre verte
  10. -- touchesOn : controle l'activation des raccourcis clavier
  11.  
  12. -- navigation entre films
  13. on acces
  14.   set n = the paramCount
  15.   if n > 0 then
  16.     initFilm
  17.     nom = chemin
  18.     if n > 1 then
  19.       -- chemin d'accΦs a ΘtΘ envoyΘ sous forme de plusieurs paramΦtres
  20.       repeat with i=1 to n
  21.         if the machineType = 256 then
  22.           nom = nom & param(i) & "\"
  23.         else
  24.           nom = nom & param(i) & ":"
  25.         end if
  26.       end repeat
  27.       delete char(nom.chars.count) of nom
  28.     else
  29.       -- chemin d'accΦs a ΘtΘ envoyΘ sous forme d'un seul paramΦtre
  30.       if offset(":",param(1)) = 0 and offset("\",param(1)) = 0 then
  31.         -- seulement un nom de fichier a ΘtΘ envoyΘ
  32.         nom = param(1)
  33.       else
  34.         -- un chemin d'accΦs a ΘtΘ envoyΘ
  35.         n = param(1)
  36.         nom = nom & nomDos(n)
  37.       end if
  38.     end if
  39.     put "AccΦs au film : " & nom
  40.     nom = nom & ".dir"
  41.     put nom
  42.     go to movie nom
  43.     niveauSon
  44.   end if
  45. end acces
  46.  
  47. on initFilm
  48.   coupeSon 2,3,4
  49.   menusActifs=1
  50.   menuOuvert = 0
  51. end initFilm
  52.